home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / CDROM / AminetCDs / Search < prev    next >
Text File  |  1997-09-10  |  712b  |  36 lines
  1. ; Searches the Aminet CD Index files for a specified string
  2.  
  3. set OutFile "RAM:Aminet"
  4. unset Match
  5.  
  6. version >NIL: version 37
  7. if WARN
  8.     echo ""
  9.     echo "You need at least version 2.04 of the operating system to run Index"
  10.     quit
  11.     endif
  12.  
  13. unset str
  14. set str `:C/RequestString TITLE "Search Aminet CDs" BODY "Please enter the string to search for"`
  15. get >NIL: str
  16. if WARN
  17.     quit
  18.     endif
  19.  
  20. :C/FlashFind Index?? "$str" >>$OutFile NOPREFS QUIET
  21. if WARN
  22.     RequestChoice >NIL: "Index search" "No matches found for *"$str*"" "OK"
  23. else
  24.     Version >NIL: version 39
  25.     if WARN
  26.         AmigaGuide $OutFile
  27.     else
  28.         MultiView $OutFile
  29.         endif
  30.     endif
  31.  
  32. delete >NIL: $OutFile
  33. unset OutFile
  34. unset str
  35.  
  36.